home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tf.d64 / proc.bubblesort3 < prev    next >
Text File  |  2009-01-03  |  338b  |  14 lines
  1. 0730 PROC BUBBLESORT3 
  2. 0740   END':=11
  3. 0750   REPEAT 
  4. 0760     EXCHANGED:=FALSE
  5. 0770     END':-1
  6. 0780     FOR START:=1 TO END' DO
  7. 0790       IF NAME$(START)>NAME$(START+1) THEN
  8. 0800         EXCHANGE(NAME$(START),NAME$(START+1))
  9. 0810         END':=START
  10. 0820       ENDIF 
  11. 0830     ENDFOR START
  12. 0840   UNTIL END'=0
  13. 0850 ENDPROC BUBBLESORT3
  14.